Запись в Memo значения в зависимости от выбора в ComboBox

var l:textfile;
st,ccod,kcod:string;
begin
assignfile(l,'C:\Users\anubis\Desktop\baza\Win32\Debug\olkeler.txt');
reset(l);
ccod:='C:\Users\anubis\Desktop\baza\Win32\Debug\seherler.txt' ;
kcod:='C:\Users\anubis\Desktop\baza\Win32\Debug\olkeler.txt' ;
while not eof (l) do
readln(l,st);
if ccod=kcod then
memo2.Text:=st
 
end;
 
procedure TForm1.FormActivate(Sender: TObject);
begin
memo1.Lines.LoadFromFile('C:\Users\anubis\Desktop\baza\Win32\Debug\olkeler.txt');
combobox1.Items.LoadFromFile('C:\Users\anubis\Desktop\baza\Win32\Debug\olkeler.txt');

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  memo2.Lines.Add(ComboBox1.Text)
end;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Memo2: TMemo;
    ComboBox1: TComboBox;
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  ComboBox1.Items.LoadFromFile('countries.txt');
  Memo1.Lines.LoadFromFile('cities.txt');
end;
 
procedure TForm1.ComboBox1Change(Sender: TObject);
Var
  i : Integer;
  s : String;
begin
  Memo2.Lines.Clear;
  If ComboBox1.ItemIndex=-1 Then Exit;
  s:=ComboBox1.Text;
  s:=Copy(s,1,Pos(' ',s)-1);
  If Length(s)<>0 Then
  For i:=0 To Memo1.Lines.Count-1 Do
  If Copy(Memo1.Lines[i],1,Length(s))=s Then
  Memo2.Lines.Add(Memo1.Lines[i]);
end;
 
end.

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if COMBOBOX1.ItemIndex = 0 then
BEGIN
MEMO1.Lines.Add('Украина');
END
ELSE
if COMBOBOX1.ItemIndex = 1 then
BEGIN
MEMO1.Lines.Add('Россия');
END
ELSE
if COMBOBOX1.ItemIndex = 2 then
begin
MEMO1.Lines.Add('Англия');
end;
end;