Где ошибка в коде?

[ilgar-90]

В общем программа грузит из текстового файла в мемо строки. Каждая строка выглядит примерно так: 123456789:qwer
Надо чтобы во всех строках все цифры до знака : сохранялись в мемо а остальные стирались...Колич-во цифр до знака : варьируется от 3 до 9...

procedure TForm1.Button1Click(Sender: TObject);
var s:string;    p:array [1..9] of char;
k,i,j:integer;
begin
Memo1.Lines.LoadFromFile('C:\123.txt');
k:=Memo1.Lines.Count;
for i:=0 to k-1 do
begin
s:=Memo1.Lines.Strings[i];
for j:=1 to 10 do
begin
If s[j] <> ':' then p[j]:=s[j] else exit;
end;
Memo1.Lines.Strings[i]:=p;
end;

end;

end.

Написал это по-быстрому...но не работает...

[Скандербег]

...
  for I := 0 to Memo1.Lines.Count-1 do begin
    K := Pos(':', Memo1.Lines[I]);
    if K > 0 then
      Memo1.Lines[I] := Copy(Memo1.Lines[I], 1, K-1)
  end;

[ilgar-90]

Сообщение от Скандербег

...
  for I := 0 to Memo1.Lines.Count-1 do begin
    K := Pos(':', Memo1.Lines[I]);
    if K > 0 then
      Memo1.Lines[I] := Copy(Memo1.Lines[I], 1, K-1)
  end;

Премного благодарен!!!