تغيير عنوان الفورم

[Agmcz]

في الحدث OnChange لـ Memo أو RichEdit
ضع شي مثل

PHP كود :

var
  SL: TStringList;
begin
  SL := TStringList.Create;
  try
    SL.Delimiter := ' ';
    SL.DelimitedText := Memo1.Text; // or SL.DelimitedText := RichEdit1.Text;
    if SL.Count > 0 then
      Caption := SL[Pred(SL.Count)];
  finally
    SL.Free;
  end;
end;