Help I'm stuck

Hi I am trying to modify a program used for msg transfer, once the msg is transfered I then have the option to delete the original msg. this is what I have.....

procedure TMainForm.DeleteMessage_ButtonClick(Sender: TObject);
var
fullname:string[255];
msgtxt:array [0..254] of char;
response:Word;

begin
fullname:=Message_Directory + '\' + message_name;

if not message_transferred then
begin
StrFmt(msgtxt,'You must transfer the message to at least one target before the message can be deleted',[fullname]);
MessageDlg(msgtxt,mtWarning,[mbOK],0);
exit;
end;
response:=MessageDlg('Are you sure you want to delete this message?',
mtConfirmation,mbOkCancel,0);
if (response = mrCancel) then
exit;
if not DeleteFile(fullname)then
begin
StrFmt(msgtxt,'DeleteFile failed for ''%s''',[fullname]);
MessageDlg(msgtxt,mtWarning,[mbOK],0);
end;

MainMemo.Lines.SaveToFile(Archive_Directory + '\' + message_name);
MainMemo.Clear;
if Files_ComboBox_Update then
Files_ComboBox.Text:='No Message Selected'
else
Files_ComboBox.Text:='No Messages Present';
Enable_Controls(false);
end;


The line in red is not right but I just cant see what is wrong (must be old age) any help would be great..

thanks

Ken

Space between then and begin perhaps?

Sorry that was the way I typed the msg the "begin" is on a new line.

Thanks anyway

Ken