Kode fejl ?

Ups, undskyld jeg ikke så fejlen før. Det er på grund af at SaveToFile ikke returnerer True eller False. Det vil sige at man ikke kan bruge if med SaveToFile. Istedet skal du bruge FileExist EFTER du har gemt filen:

begin
if FileExist('C:\\Users\\****\\Desktop\\1231231\\Test.txt') then
ShowMessage('Filen er gemt!')
else
ShowMessage('Filen er ikke gemt')
end;

Du må ikke sætte semikolon( ; ) efter et statement i din if hvis du ikke bruger begin. Istedet skal den se sådan her ud:

begin
if Memo1.Lines.SaveToFile('C:\\Users\\****\\Desktop\\1231231\\Test.txt') then
ShowMessage('Filen er gemt!')
else
ShowMessage('Filen er ikke gemt')
end;

Den skiver:

"Type of expression must be BOOLEAN"
og
"Expected but ';' found"

Det er i denne linie den viser rødt:
if Memo1.Lines.SaveToFile('C:\\Users\\****\\Desktop\\1231231\\Test.txt') then

De samme fejl som den viste ved min kode