حذف آخر حرف في كلمة بإثتثنآء طول الكلمة ؟

[S.FATEH]

السلام عليكم يمكن
استخدام الاجراء Delete

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(DeleteLastChar('Test'));
end;

function TForm1.DeleteLastChar(s: string): string;
var
  TmpStr: string;
begin
  TmpStr := s;
  Delete(TmpStr, Length(TmpStr), Length(TmpStr));
  Result := TmpStr;
end;