[angvelem]

Ну по поводу, что ТС - гуглил очень долго прежде чем спросить - откровенное враньё. Нажимаем F1 читаем справку по Copy и Pos, а заодно смотрим, приложенные там же примеры.

Код:

var
  I : Integer;
begin
  for I := 0 to Memo1.Lines.Count - 1 do
    if Pos('megosupercar', Memo1.Lines[i] > 0 then
    begin
      copyresult := Copy(Memo1.Lines[i], Pos(':', Memo1.Lines[i] + 1, Length(Memo1.Lines[i]));
      Break; 
    end;
end;

надеюсь всё верно нарисовал.