Delphi - trabajar con archivos de texto

hola soy nuevo en delphi y quiero trabajar con archivos de texto
como puedo hacer esto, masomenos asi.

si archivo no existe entonces
crearlo y guardar sus datos
de lo contrario
abrirlo y adjuntar texto a archivo ya creado

se hacer eso en visual basic pero en delphi no, les ruego por una mano gracias a todos
mike

Una forma de hacerlo es con las funciones de E/S incorporadas:

procedure TForm1.Button1Click(Sender: TObject);
var
f: TextFile;
begin
AssignFile(f, 'nomarch.txt'); // Asigna el nombre de archivo
if FileExists('nomarch.txt') then // Si el archivo existe...
Append(f) // Abre para agregar
else
ReWrite(f); // Crea el archivo
WriteLn(f, 'Hola mundo!'); // Escribe una línea en el archivo
CloseFile(f); // Cierra el archivo
end;

Espero que te sirva.

Ernesto D'Spirito
http://www.latiumsoftware.com/es/index.php

procedure TForm1.Button1Click(Sender: TObject);
var
f: TextFile;
begin
AssignFile(f, 'nomarch.txt'); // Asigna el nombre de archivo
if FileExists('nomarch.txt') then // Si el archivo existe...
Append(f) // Abre para agregar
else
ReWrite(f); // Crea el archivo
WriteLn(f, 'Hola mundo!'); // Escribe una línea en el archivo
CloseFile(f); // Cierra el archivo
end;

necesito este mismo código pero orientado a objetos porfavor

con su respectiva interfaz y aplicacion ....