Dzięki. Tak też myślałem ale z poprawnego myślenia zbił mnie komunikat:
[Error] Unit1.pas(81): Unterminated string
[Error] Unit1.pas(83): Not enough actual parameters
[Error] Unit1.pas(84): '.' expected but ';' found
[Warning] Unit1.pas(85): Text after final 'END.' - ignored by compiler
[Fatal Error] Project1.dpr(7): Could not compile used unit 'Unit1.pas'
[Error] Unit1.pas(81): Unterminated string
W 81 lini masz niezakończony łańcuch. Łańcuch znaków musi kończyć się w tej samej linijce znakiem ' (apostrof). Tak samo też się zaczyna. Jeżeli chcesz wstawić apostrof do środka ciągu znaków to piszesz:
'Jakiś cią''g znaków' (pomiędzy "ą", a "g" będzie apostrof)
[Error] Unit1.pas(83): Not enough actual parameters
Zamało parametrów w funkcji. Najedź kursorem za znak ( w funkcji i naciśnij Ctrl+Shift+Spacja. Pojawi się podpowiedź z wymaganymi parametrami.
[Error] Unit1.pas(84): '.' expected but ';' found
[Warning] Unit1.pas(85): Text after final 'END.' - ignored by compiler
Masz o jeden "end;" za dużo. Sprawdź, czy odpowiedniej liczbie beginów odpowiadają endy. Ostatni end w pliku kończyć się kropką, a nie średnikiem.
--
Jest jeszcze jeden błąd ... :)
Apel: Piszcie w tematach o jaki język programowania chodzi np. : [Delphi], [C++], itp.