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

[S.FATEH]

السلام عليكم
طريقة اخرى اخر كلمتين اتركها لك :confused:

PHP كود :

function TForm1.LastWord(Value: String): String;
begin
// get the last line
  Value := Copy(Value, LastDelimiter(#13#10, Value), Length(Value));
// get the last word
  Result := Trim(copy(Value, LastDelimiter(' ',Value), Length(Value)));
end;

procedure TForm1.Memo1Change(Sender: TObject);
begin
  if not (LastWord(Memo1.Text) = EmptyStr) then
    Caption := LastWord(Memo1.Text);
end;