Строка между символами. Delphi

[ADK01]

Нужно скопировать символы между первым и вторым двоеточиями в строке, если двоеточие только одно, то до конца строки, после единственного двоеточия.

procedure TForm1.Button1Click(Sender: TObject);
var
  s:string;
  i,n,p:integer;
begin
s:=Edit1.Text;
n:=length(s);
p:=pos(':',s);
  for i:=1 to n do
  begin
    if pos(':',s)=1 then
    Edit2.Text:=copy(s, p+1, n) else
    Edit2.Text:=copy(s, p+1, p-1);
  end;
end;

end.

В любом случае, копирует только три символа после первого двоеточия.

Подскажите, пожалуйста, где ошибка.

[Mad_Cat]

s:=edit1.text;
if pos(':',s)<>0 then delete(s,1,pos(':',s));
if pos(':',s)<>0 then s:=copy(s,1,pos(':',s)-1);
edit2.Text:=s;