[lmikle]

Блин, поиском будем пользоваться?
Буквально 3-4 дня назад был похожий вопрос...

Код:

var
  S : String;
  Word1, Word2 : String;
  EqPos : Integer;
begin
  S := 'aaa=bbb';
  EqPos := Pos('=',S);
  Word1 := Copy(S,1,EqPos-1);
  Word2 := Copy(S,EqPos+1,Length(S)-EqPos+1);
end;